home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Demos / RealPool Demo / 3D.DAT / 00009.ls < prev    next >
Encoding:
Text File  |  1998-05-02  |  434 b   |  21 lines
  1. global playermode, name2
  2.  
  3. on mouseDown
  4.   set playermode to 0
  5.   set ml to ((the mouseV - the top of sprite the clickOn) / (the height of cast the number of member the castNum of sprite the clickOn / 2)) + 1
  6.   if (ml < 1) or (ml > 5) then
  7.     exit
  8.   end if
  9.   set playermode2 to ml - 1
  10.   case playermode2 of
  11.     0:
  12.       butsound()
  13.       resetrules()
  14.       go("credits")
  15.     1:
  16.       butsound()
  17.       quitp()
  18.   end case
  19.   cursor(-1)
  20. end
  21.